home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 93
/
64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64
/
quicksort b 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
43 lines
10000 an=49152:ad=an:en=an+522
10002 ps=0:fori=0to15:readx:ps=ps+x:pokead+i,x:next:readx:ad=ad+16
10004 ifps<>xthensys45640
10006 ifad<enthen10002
10008 fori=0to21:readad:ad=ad+an:x=peek(ad+1)*256+peek(ad)+an
10010 y=int(x/256):x=x-y*256:pokead,x:pokead+1,y:next
10012 qs=an+12:return
10014 data 32,139,176,196,48,208,2,197,47,144,44,96,32,253,174,32,1820
10016 data 0,0,133,251,132,252,165,69,72,165,70,72,32,253,174,32,1872
10018 data 0,0,170,104,197,70,208,15,104,197,69,208,10,196,252,208,2008
10020 data 2,228,251,240,5,176,4,76,72,178,96,134,253,132,254,36,2137
10022 data 13,48,10,36,14,48,3,169,5,44,169,2,44,169,3,133,910
10024 data 87,169,0,141,15,194,165,253,56,229,251,133,88,165,254,229,2429
10026 data 252,133,89,162,15,169,0,24,38,88,38,89,42,176,4,197,1516
10028 data 87,144,3,229,87,56,202,208,239,38,88,38,89,162,0,160,1830
10030 data 0,165,87,133,90,24,138,101,88,170,152,101,89,168,198,90,1794
10032 data 208,244,138,101,251,133,88,152,101,252,133,89,160,4,177,88,2319
10034 data 153,98,0,136,16,248,162,3,181,251,149,88,202,16,249,165,2117
10036 data 89,197,91,208,4,165,88,197,90,176,6,32,48,1,76,175,1643
10038 data 0,165,252,197,91,208,4,165,251,197,90,176,51,165,253,32,2297
10040 data 23,1,165,254,32,23,1,165,88,32,23,1,165,89,32,23,1117
10042 data 1,165,90,133,253,165,91,133,254,32,86,0,32,38,1,133,1607
10044 data 89,32,38,1,133,88,32,38,1,133,254,32,38,1,133,253,1296
10046 data 165,89,197,254,208,4,165,88,197,253,176,22,165,88,133,251,2455
10048 data 165,89,133,252,76,86,0,174,15,194,48,7,157,16,194,238,1844
10050 data 15,194,96,76,53,164,206,15,194,174,15,194,189,16,194,96,1891
10052 data 165,90,72,165,91,72,169,98,133,90,169,0,133,91,32,254,1824
10054 data 1,176,6,32,155,1,76,62,1,104,133,91,104,133,90,165,1330
10056 data 88,72,165,89,72,169,98,133,88,169,0,133,89,32,254,1,1652
10058 data 176,6,32,143,1,76,93,1,104,133,89,104,133,88,165,91,1435
10060 data 197,89,208,4,165,90,197,88,144,32,240,16,164,87,136,177,2034
10062 data 88,170,177,90,145,88,138,145,90,136,16,243,32,155,1,165,1879
10064 data 90,56,229,87,133,90,176,2,198,91,96,165,88,24,101,87,1713
10066 data 133,88,144,2,230,89,96,160,0,177,88,209,90,208,5,200,1919
10068 data 196,87,208,245,96,160,1,177,88,48,6,177,90,16,232,56,1883
10070 data 96,177,90,16,7,32,167,1,240,3,144,243,24,96,160,0,1496
10072 data 177,88,16,231,177,90,48,207,24,96,160,2,177,88,153,92,1826
10074 data 0,177,90,153,95,0,136,16,243,200,196,92,240,11,196,95,1940
10076 data 240,7,177,93,209,96,240,241,96,165,92,197,95,96,165,87,2296
10078 data 201,2,240,202,201,3,240,210,208,171,0,0,0,0,0,0,1678
10080 data 16,32,188,191,208,213,218,223,234,237,242,247,252,277,319,324,327
10082 data 350,355,358,397,454